home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / paris / wave / COUT.dcr / 00151_INQ go.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  404 b   |  20 lines
  1. on mouseDown
  2.   put "Name=", length(field "Name")
  3.   if length(field "Name") = 0 then
  4.     alert("Error: Illegal Nickname")
  5.     go("Name Chk")
  6.     abort()
  7.   end if
  8.   if length(field "Name") > 20 then
  9.     alert("Error: Illegal Nickname")
  10.     go("Name Chk")
  11.     abort()
  12.   end if
  13.   if length(field "Pass") > 10 then
  14.     alert("Error: Illegal Password")
  15.     go("Name Chk")
  16.     abort()
  17.   end if
  18.   go("INQ.")
  19. end
  20.